home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 186 / radiomed.lst < prev    next >
File List  |  1988-03-13  |  4KB  |  146 lines
  1. @Dialog_box
  2. Procedure Dialog_box
  3.   ' DIALOG CONSTRUCTION SET (c) Programmed by Derrick Anthony Hall
  4.   '
  5.   '     PERMISSION GRANTED TO USE DIALOG CONSTRUCTION SET (c)
  6.   '       GENERATED SOURCE CODE WITHIN GFA BASIC PROGRAMS.
  7.   '
  8.   '   Source code can be published or upload to bulletin boards.
  9.   '
  10.   ' I only ask that you give VISIBLE CREDIT within your program to
  11.   '            Dialog Construction Set resource editor.
  12.   '
  13.   '                    Have fun and enjoy!
  14.   '         Merge this source LST file into your program
  15.   @Shrink_grow(1,5,5,5,5,96,17,444,140)
  16.   Sget Yourname$
  17.   Graphmode 1
  18.   Deffill 0,2,8
  19.   '                      DIALOG box parameters
  20.   ' Box #1
  21.   ' Insert Deffill here, to fill boxes with color or pattern
  22.   Pbox 124,31,519,186
  23.   Box 124,31,519,186
  24.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  25.   ' Box #2
  26.   ' Insert Deffill here, to fill boxes with color or pattern
  27.   Deffill 1,2,6
  28.   Pbox 126,34,517,183
  29.   Box 126,34,517,183
  30.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  31.   ' Box #3
  32.   ' Insert Deffill here, to fill boxes with color or pattern
  33.   Pbox 138,41,504,53
  34.   Box 138,41,504,53
  35.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  36.   ' Box #4
  37.   ' Insert Deffill here, to fill boxes with color or pattern
  38.   Pbox 156,62,484,160
  39.   Box 156,62,484,160
  40.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  41.   '                   TOUCHEXIT button parameters
  42.   ' Box #1
  43.   ' Insert Deffill here, to fill boxes with color or pattern
  44.   Pbox 269,169,381,181
  45.   Box 269,169,381,181
  46.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  47.   '                     RADIO button parameters
  48.   ' Box #1
  49.   Clr Radio1%
  50.   ' Insert Deffill here, to fill boxes with color or pattern
  51.   Pbox 213,82,422,96
  52.   Box 213,82,422,96
  53.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  54.   ' Box #2
  55.   Clr Radio2%
  56.   ' Insert Deffill here, to fill boxes with color or pattern
  57.   Pbox 213,112,421,126
  58.   Box 213,112,421,126
  59.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  60.   '      To change text FONT and COLOR use the command DEFTEXT
  61.   Text 311,178,"EXIT"
  62.   Text 287,93,"Radio One"
  63.   Text 286,123,"Radio Two"
  64.   Text 209,50,"Radio demo by Derrick A. Hall"
  65.   Do
  66.     K=Mousek
  67.     While K=1
  68.       Mouse X,Y,K
  69.       If X>269 And Y>169 And X<381 And Y<181 And K
  70.         Graphmode 2
  71.         Deffill 1,2,8
  72.         Pbox 269,169,381,181
  73.         Graphmode 3
  74.         Text 311,178,"EXIT"
  75.         Pause 8
  76.         Goto Buttonend
  77.       Endif
  78.       If X>213 And Y>82 And X<422 And Y<96 And K
  79.         Deffill 1,2,8
  80.         If Radio1%=0
  81.           Radio1%=1
  82.           Deftext 0
  83.           Graphmode 1
  84.           Pbox 213,82,422,96
  85.           Graphmode 2
  86.           Text 287,93,"Radio One"
  87.           Pause 8
  88.         Else
  89.           Graphmode 1
  90.           Radio1%=1
  91.           Deffill 0,2,8
  92.           Pbox 213,82,422,96
  93.           Box 213,82,422,96
  94.           Deftext 1
  95.           Text 287,93,"Radio One"
  96.           Radio1%=0
  97.           Pause 8
  98.         Endif
  99.       Endif
  100.       If X>213 And Y>112 And X<421 And Y<126 And K
  101.         Deffill 1,2,8
  102.         If Radio2%=0
  103.           Radio2%=1
  104.           Deftext 0
  105.           Graphmode 1
  106.           Pbox 213,112,421,126
  107.           Graphmode 2
  108.           Text 286,123,"Radio Two"
  109.           Pause 8
  110.         Else
  111.           Graphmode 1
  112.           Radio2%=1
  113.           Deffill 0,2,8
  114.           Pbox 213,112,421,126
  115.           Box 213,112,421,126
  116.           Deftext 1
  117.           Text 286,123,"Radio Two"
  118.           Radio2%=0
  119.           Pause 8
  120.         Endif
  121.       Endif
  122.     Wend
  123.   Loop
  124.   Buttonend:
  125.   Sput Yourname$
  126.   Clr Yourname$
  127.   Graphmode 1
  128.   @Shrink_grow(0,5,5,5,5,103,20,479,166)
  129. Return
  130. '
  131. Procedure Shrink_grow(Gem,Lightx,Lighty,Wsgx,Hsgy,Lox,Loy,Wx,Hy)
  132.   Dpoke Gintin,Lightx
  133.   Dpoke Gintin+2,Lighty
  134.   Dpoke Gintin+4,Wsgx
  135.   Dpoke Gintin+6,Hsgy
  136.   Dpoke Gintin+8,Lox
  137.   Dpoke Gintin+10,Loy
  138.   Dpoke Gintin+12,Wx
  139.   Dpoke Gintin+14,Hy
  140.   If Gem=1
  141.     Gemsys (73)
  142.   Else
  143.     Gemsys (74)
  144.   Endif
  145. Return
  146.